Shareware Super Platinum 8

home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / GSXSAM.ZIP;1 / CUST4.SCT < prev next >
Unknown | 1993-08-09 | 9.8 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	Sound Control Module `(music/soundControl)`	ext	Supported
`100%`	file	Adobe Photoshop Color swatch, version 0, 304 colors; 1st RGB space (0), w 0x21, x 0, y 0, z 0 ; 2nd RGB space (0), w 0, x 0, y 0, z 0	default (weak)
`99%`	file	data	default
`100%`	TrID	MacBinary 1	default (weak)
`100%`	siegfried	x-fmt/342 Microsoft FoxPro Memo	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 01 30 00 00 00 21 | 00 00 00 00 00 00 00 00 |...0...!|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 01 00 00 00 07 | 77 5f 63 75 73 74 34 00 |........|w_cust4.|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 01 00 00 00 | 10 22 20 7b 7b 5f 47 45 |........|." {{_GE|
|00000240| 4e 53 43 52 4e 7d 7d 20 | 22 00 00 00 00 00 00 00 |NSCRN}} |".......|
|00000250| 00 00 00 00 00 01 00 00 | 01 98 2a 20 20 49 6e 73 |........|..*  Ins|
|00000260| 65 72 74 20 63 6f 64 65 | 20 66 72 6f 6d 20 43 4f |ert code| from CO|
|00000270| 4d 4d 45 4e 54 20 66 69 | 65 6c 64 20 6f 66 20 74 |MMENT fi|eld of t|
|00000280| 68 65 20 49 6e 63 6c 75 | 64 65 5f 53 74 61 6e 64 |he Inclu|de_Stand|
|00000290| 61 72 64 20 6f 62 6a 65 | 63 74 20 63 6f 6e 74 61 |ard obje|ct conta|
|000002a0| 69 6e 65 64 0d 0a 2a 20 | 20 69 6e 20 74 68 65 20 |ined..* | in the |
|000002b0| 4d 41 49 4e 20 6c 69 62 | 72 61 72 79 2e 0d 0a 7b |MAIN lib|rary...{|
|000002c0| 7b 6c 69 62 64 61 74 61 | 28 27 4d 41 49 4e 2e 49 |{libdata|('MAIN.I|
|000002d0| 6e 63 6c 75 64 65 5f 53 | 74 61 6e 64 61 72 64 27 |nclude_S|tandard'|
|000002e0| 29 7d 7d 0d 0a 0d 0a 2a | 20 20 56 65 72 69 66 79 |)}}....*|  Verify|
|000002f0| 20 74 68 61 74 20 73 63 | 72 65 65 6e 20 77 61 73 | that sc|reen was|
|00000300| 20 67 65 6e 65 72 61 74 | 65 64 20 77 69 74 68 20 | generat|ed with |
|00000310| 47 45 4e 53 43 52 4e 58 | 2e 0d 0a 7b 7b 6c 69 62 |GENSCRNX|...{{lib|
|00000320| 64 61 74 61 28 27 4d 41 | 49 4e 2e 4d 6f 64 75 6c |data('MA|IN.Modul|
|00000330| 65 5f 56 65 72 69 66 79 | 47 65 6e 73 63 72 6e 78 |e_Verify|Genscrnx|
|00000340| 27 29 7d 7d 0d 0a 0d 0a | 44 49 4d 45 4e 53 49 4f |')}}....|DIMENSIO|
|00000350| 4e 20 61 5f 70 6f 70 75 | 70 28 33 29 0d 0a 61 5f |N a_popu|p(3)..a_|
|00000360| 70 6f 70 75 70 28 31 29 | 3d 27 41 70 70 6c 65 73 |popup(1)|='Apples|
|00000370| 27 0d 0a 61 5f 70 6f 70 | 75 70 28 32 29 3d 27 4f |'..a_pop|up(2)='O|
|00000380| 72 61 6e 67 65 73 27 0d | 0a 61 5f 70 6f 70 75 70 |ranges'.|.a_popup|
|00000390| 28 33 29 3d 27 50 65 61 | 72 73 27 0d 0a 44 49 4d |(3)='Pea|rs'..DIM|
|000003a0| 45 4e 53 49 4f 4e 20 61 | 5f 72 61 64 69 6f 28 33 |ENSION a|_radio(3|
|000003b0| 29 0d 0a 61 5f 72 61 64 | 69 6f 28 31 29 3d 27 54 |)..a_rad|io(1)='T|
|000003c0| 79 70 65 20 41 27 0d 0a | 61 5f 72 61 64 69 6f 28 |ype A'..|a_radio(|
|000003d0| 32 29 3d 27 54 79 70 65 | 20 42 27 0d 0a 61 5f 72 |2)='Type| B'..a_r|
|000003e0| 61 64 69 6f 28 33 29 3d | 27 54 79 70 65 20 43 27 |adio(3)=|'Type C'|
|000003f0| 0d 0a 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 00 00 01 00 00 01 0b 50 | 52 4f 43 45 44 55 52 45 |.......P|ROCEDURE|
|00000410| 20 70 6f 70 5f 63 68 6f | 69 63 65 0d 0a 50 41 52 | pop_cho|ice..PAR|
|00000420| 41 4d 45 54 45 52 53 20 | 6d 2e 76 61 6c 75 65 2c |AMETERS |m.value,|
|00000430| 6d 2e 70 6f 70 75 70 2c | 6d 2e 76 61 72 5f 6e 61 |m.popup,|m.var_na|
|00000440| 6d 65 2c 6d 2e 64 62 66 | 5f 66 69 65 6c 64 0d 0a |me,m.dbf|_field..|
|00000450| 50 52 49 56 41 54 45 20 | 6d 2e 76 61 6c 75 65 2c |PRIVATE |m.value,|
|00000460| 6d 2e 70 6f 70 75 70 2c | 6d 2e 76 61 72 5f 6e 61 |m.popup,|m.var_na|
|00000470| 6d 65 2c 6d 2e 64 62 66 | 5f 66 69 65 6c 64 0d 0a |me,m.dbf|_field..|
|00000480| 0d 0a 49 46 20 6d 2e 64 | 62 66 5f 66 69 65 6c 64 |..IF m.d|bf_field|
|00000490| 0d 0a 20 20 52 45 50 4c | 41 43 45 20 28 6d 2e 76 |..  REPL|ACE (m.v|
|000004a0| 61 72 5f 6e 61 6d 65 29 | 20 57 49 54 48 20 6d 2e |ar_name)| WITH m.|
|000004b0| 76 61 6c 75 65 0d 0a 45 | 4c 53 45 0d 0a 20 20 26 |value..E|LSE..  &|
|000004c0| 76 61 72 5f 6e 61 6d 65 | 3d 50 52 4f 4d 50 54 28 |var_name|=PROMPT(|
|000004d0| 29 0d 0a 45 4e 44 49 46 | 0d 0a 44 45 41 43 54 49 |)..ENDIF|..DEACTI|
|000004e0| 56 41 54 45 20 50 4f 50 | 55 50 20 28 6d 2e 70 6f |VATE POP|UP (m.po|
|000004f0| 70 75 70 29 0d 0a 52 45 | 54 55 52 4e 0d 0a 0d 0a |pup)..RE|TURN....|
|00000500| 2a 20 45 4e 44 20 70 6f | 70 5f 63 68 6f 69 63 65 |* END po|p_choice|
|00000510| 0d 0a 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 0c |........|........|
|00000530| 43 55 53 54 4f 4d 45 52 | 2e 44 42 46 00 00 00 00 |CUSTOMER|.DBF....|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00000550| 08 43 55 53 54 4f 4d 45 | 52 00 00 00 00 00 00 00 |.CUSTOME|R.......|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00000570| 00 09 49 54 45 4d 53 2e | 44 42 46 00 00 00 00 00 |..ITEMS.|DBF.....|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00000590| 00 00 05 49 54 45 4d 53 | 00 00 00 00 00 00 00 00 |...ITEMS|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|000005b0| 00 00 00 04 49 54 45 4d | 00 00 00 00 00 00 00 00 |....ITEM|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 01 00 00 00 1c 22 3c 2d | 2d 44 61 74 61 20 64 72 |....."<-|-Data dr|
|000005e0| 69 76 65 6e 20 50 75 73 | 68 20 42 75 74 74 6f 6e |iven Pus|h Button|
|000005f0| 22 9b fa 9b fb 9b fc 9b | fd 9b fe 9b ff 9b 00 9c |".......|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 01 00 00 00 1f 22 | 3c 2d 2d 41 72 72 61 79 |......."|<--Array|
|00000620| 20 64 72 69 76 65 6e 20 | 52 61 64 69 6f 20 42 75 | driven |Radio Bu|
|00000630| 74 74 6f 6e 73 22 00 00 | 00 00 00 00 00 00 00 00 |ttons"..|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 01 00 00 00 | 06 22 4e 61 6d 65 22 00 |........|."Name".|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 01 00 00 | 00 09 22 41 64 64 72 65 |........|.."Addre|
|00000680| 73 73 22 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ss".....|........|
|00000690| 00 00 00 00 00 00 01 00 | 00 00 07 22 50 68 6f 6e |........|..."Phon|
|000006a0| 65 22 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |e"......|........|
|000006b0| 00 00 00 00 00 00 00 01 | 00 00 00 08 2a 3a 4e 4f |........|....*:NO|
|000006c0| 53 49 5a 45 00 00 00 00 | 00 00 00 00 00 00 00 00 |SIZE....|........|
|000006d0| 00 00 00 00 00 00 00 00 | 01 00 00 00 06 22 43 69 |........|....."Ci|
|000006e0| 74 79 22 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ty".....|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 08 22 4e |........|......"N|
|00000700| 75 6d 62 65 72 22 00 00 | 00 00 00 00 00 00 00 00 |umber"..|........|
|00000710| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 06 22 |........|......."|
|00000720| 44 61 74 65 22 00 00 00 | 00 00 00 00 00 00 00 00 |Date"...|........|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 0b |........|........|
|00000740| 22 43 68 61 72 61 63 74 | 65 72 22 00 00 00 00 00 |"Charact|er".....|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00000760| 03 22 b4 22 00 00 00 00 | 00 00 00 00 00 00 00 00 |."."....|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00000780| 00 03 22 c3 22 00 00 00 | 00 00 00 00 00 00 00 00 |.."."...|........|
|00000790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|000007a0| 00 00 0e 22 3c 2d 2d 43 | 6f 6d 62 6f 20 42 6f 78 |..."<--C|ombo Box|
|000007b0| 22 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |".......|........|
|000007c0| 00 00 00 07 22 43 6f 6c | 6f 72 22 00 00 00 00 00 |...."Col|or".....|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 01 00 00 00 12 2a 3a 44 | 45 46 4f 42 4a 20 53 4c |.....*:D|EFOBJ SL|
|000007f0| 49 44 45 52 31 0d 0a 00 | 00 00 00 00 00 00 00 00 |IDER1...|........|
|00000800| 00 01 00 00 00 0b 22 3c | 2d 2d 53 6c 69 64 65 72 |......"<|--Slider|
|00000810| 22 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |".......|........|
|00000820| 00 00 01 00 00 00 08 6d | 2e 70 72 6f 6d 70 74 00 |.......m|.prompt.|
|00000830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000840| 00 00 00 01 00 00 00 21 | 2a 3a 42 41 53 4f 42 4a |.......!|*:BASOBJ|
|00000850| 20 4d 41 49 4e 2e 50 75 | 73 68 42 75 74 74 6f 6e | MAIN.Pu|shButton|
|00000860| 5f 52 65 63 6f 72 64 0d | 0a 00 00 00 00 00 00 00 |_Record.|........|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 00 00 00 01 00 00 | 00 18 22 40 2a 48 4e 20 |........|.."@*HN |
|00000890| 50 75 73 68 42 75 74 74 | 6f 6e 5f 52 65 63 6f 72 |PushButt|on_Recor|
|000008a0| 64 22 00 00 00 00 01 00 | 00 00 13 22 50 75 73 68 |d"......|..."Push|
|000008b0| 42 75 74 74 6f 6e 5f 52 | 65 63 6f 72 64 22 00 00 |Button_R|ecord"..|
|000008c0| 00 00 00 00 00 00 00 01 | 00 00 00 0d 63 75 73 74 |........|....cust|
|000008d0| 6f 6d 65 72 2e 6e 61 6d | 65 00 00 00 00 00 00 00 |omer.nam|e.......|
|000008e0| 00 00 00 00 00 00 00 00 | 01 00 00 00 13 2a 3a 42 |........|.....*:B|
|000008f0| 41 53 4f 42 4a 20 47 65 | 74 5f 4e 61 6d 65 0d 0a |ASOBJ Ge|t_Name..|
|00000900| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 09 6d 2e |........|......m.|
|00000910| 63 5f 70 6f 70 75 70 00 | 00 00 00 00 00 00 00 00 |c_popup.|........|
|00000920| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 32 2a |........|......2*|
|00000930| 3a 42 41 53 4f 42 4a 20 | 4f 6e 45 6e 74 65 72 5f |:BASOBJ |OnEnter_|
|00000940| 4d 6f 75 73 65 44 6f 77 | 6e 0d 0a 2a 3a 44 45 46 |MouseDow|n..*:DEF|
|00000950| 41 55 4c 54 20 61 5f 70 | 6f 70 75 70 28 31 29 0d |AULT a_p|opup(1).|
|00000960| 0a 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00000970| 7f 22 40 5e 20 7b 7b 43 | 48 52 28 33 34 29 7d 7d |."@^ {{C|HR(34)}}|
|00000980| 7b 7b 27 2b 61 5f 70 6f | 70 75 70 28 31 29 2b 27 |{{'+a_po|pup(1)+'|
|00000990| 7d 7d 7b 7b 43 48 52 28 | 33 34 29 7d 7d 3b 7b 7b |}}{{CHR(|34)}};{{|
|000009a0| 43 48 52 28 33 34 29 7d | 7d 7b 7b 27 2b 61 5f 70 |CHR(34)}|}{{'+a_p|
|000009b0| 6f 70 75 70 28 32 29 2b | 27 7d 7d 7b 7b 43 48 52 |opup(2)+|'}}{{CHR|
|000009c0| 28 33 34 29 7d 7d 3b 7b | 7b 43 48 52 28 33 34 29 |(34)}};{|{CHR(34)|
|000009d0| 7d 7d 7b 7b 27 2b 61 5f | 70 6f 70 75 70 28 33 29 |}}{{'+a_|popup(3)|
|000009e0| 2b 27 7d 7d 7b 7b 43 48 | 52 28 33 34 29 7d 7d 22 |+'}}{{CH|R(34)}}"|
|000009f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a10| 00 01 00 00 00 2a 22 7b | 7b 43 48 52 28 33 34 29 |.....*"{|{CHR(34)|
|00000a20| 7d 7d 7b 7b 27 2b 61 5f | 70 6f 70 75 70 28 31 29 |}}{{'+a_|popup(1)|
|00000a30| 2b 27 7d 7d 7b 7b 43 48 | 52 28 33 34 29 7d 7d 22 |+'}}{{CH|R(34)}}"|
|00000a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a50| 00 00 00 01 00 00 00 10 | 63 75 73 74 6f 6d 65 72 |........|customer|
|00000a60| 2e 61 64 64 72 65 73 73 | 00 00 00 00 00 00 00 00 |.address|........|
|00000a70| 00 00 00 00 01 00 00 00 | 0d 63 75 73 74 6f 6d 65 |........|.custome|
|00000a80| 72 2e 63 69 74 79 00 00 | 00 00 00 00 00 00 00 00 |r.city..|........|
|00000a90| 00 00 00 00 00 01 00 00 | 00 40 2a 3a 42 41 53 4f |........|.@*:BASO|
|00000aa0| 42 4a 20 4f 6e 45 78 69 | 74 5f 49 73 41 6c 70 68 |BJ OnExi|t_IsAlph|
|00000ab0| 61 0d 0a 2a 3a 42 41 53 | 4f 42 4a 20 46 6f 72 6d |a..*:BAS|OBJ Form|
|00000ac0| 61 74 5f 53 65 6c 65 63 | 74 4f 6e 45 6e 74 72 79 |at_Selec|tOnEntry|
|00000ad0| 0d 0a 2a 3a 4e 4f 53 49 | 5a 45 00 00 00 00 00 00 |..*:NOSI|ZE......|
|00000ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000af0| 00 00 00 00 00 00 00 00 | 01 00 00 00 0e 63 75 73 |........|.....cus|
|00000b00| 74 6f 6d 65 72 2e 70 68 | 6f 6e 65 00 00 00 00 00 |tomer.ph|one.....|
|00000b10| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 30 2a 3a |........|.....0*:|
|00000b20| 42 41 53 4f 42 4a 20 46 | 6f 72 6d 61 74 5f 50 68 |BASOBJ F|ormat_Ph|
|00000b30| 6f 6e 65 0d 0a 2a 3a 42 | 41 53 4f 42 4a 20 43 6f |one..*:B|ASOBJ Co|
|00000b40| 6e 74 72 6f 6c 5f 44 69 | 73 61 62 6c 65 64 00 00 |ntrol_Di|sabled..|
|00000b50| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 08 |........|........|
|00000b60| 6d 2e 6e 75 6d 62 65 72 | 00 00 00 00 00 00 00 00 |m.number|........|
|00000b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00000b80| 0c 2a 3a 44 45 46 41 55 | 4c 54 20 32 35 00 00 00 |.*:DEFAU|LT 25...|
|00000b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00000ba0| 00 05 22 23 23 23 22 00 | 00 00 00 00 00 00 00 00 |.."###".|........|
|00000bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00000bc0| 00 00 01 31 00 00 00 00 | 00 00 00 00 00 00 00 00 |...1....|........|
|00000bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00000be0| 00 00 00 03 39 39 39 00 | 00 00 00 00 00 00 00 00 |....999.|........|
|00000bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c00| 01 00 00 00 0b 6d 2e 74 | 65 73 74 5f 64 61 74 65 |.....m.t|est_date|
|00000c10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c20| 00 01 00 00 00 1a 2a 3a | 4e 4f 53 49 5a 45 0d 2a |......*:|NOSIZE.*|
|00000c30| 3a 44 45 46 41 55 4c 54 | 20 44 41 54 45 28 29 0d |:DEFAULT| DATE().|
|00000c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c60| 00 00 00 01 00 00 00 08 | 6d 2e 63 5f 70 75 73 68 |........|m.c_push|
|00000c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c80| 00 00 00 00 01 00 00 00 | 39 2a 3a 42 41 53 4f 42 |........|9*:BASOB|
|00000c90| 4a 20 4f 6e 45 6e 74 65 | 72 5f 4d 6f 75 73 65 44 |J OnEnte|r_MouseD|
|00000ca0| 6f 77 6e 0d 0a 2a 3a 53 | 49 5a 45 20 31 2c 4c 45 |own..*:S|IZE 1,LE|
|00000cb0| 4e 28 63 75 73 74 6f 6d | 65 72 2e 69 74 65 6d 29 |N(custom|er.item)|
|00000cc0| 2b 32 00 00 00 00 01 00 | 00 00 32 22 40 2a 48 4e |+2......|..2"@*HN|
|00000cd0| 20 7b 7b 43 48 52 28 33 | 34 29 7d 7d 7b 7b 27 2b | {{CHR(3|4)}}{{'+|
|00000ce0| 63 75 73 74 6f 6d 65 72 | 2e 69 74 65 6d 2b 27 7d |customer|.item+'}|
|00000cf0| 7d 7b 7b 43 48 52 28 33 | 34 29 7d 7d 22 00 00 00 |}{{CHR(3|4)}}"...|
|00000d00| 00 00 00 00 00 00 00 00 | 01 00 00 00 2d 22 7b 7b |........|....-"{{|
|00000d10| 43 48 52 28 33 34 29 7d | 7d 7b 7b 27 2b 63 75 73 |CHR(34)}|}{{'+cus|
|00000d20| 74 6f 6d 65 72 2e 69 74 | 65 6d 2b 27 7d 7d 7b 7b |tomer.it|em+'}}{{|
|00000d30| 43 48 52 28 33 34 29 7d | 7d 22 00 00 00 00 00 00 |CHR(34)}|}"......|
|00000d40| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 0d 63 |........|.......c|
|00000d50| 75 73 74 6f 6d 65 72 2e | 69 74 65 6d 00 00 00 00 |ustomer.|item....|
|00000d60| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 01 f2 |........|........|
|00000d70| 23 4e 41 4d 45 20 76 5f | 63 6f 6d 62 6f 62 6f 78 |#NAME v_|combobox|
|00000d80| 0d 0a 0d 0a 49 46 20 55 | 50 50 45 52 28 56 41 52 |....IF U|PPER(VAR|
|00000d90| 52 45 41 44 28 29 29 3d | 3d 27 43 4f 4d 42 4f 5f |READ())=|='COMBO_|
|00000da0| 42 54 4e 27 0d 0a 20 20 | 44 45 46 49 4e 45 20 50 |BTN'..  |DEFINE P|
|00000db0| 4f 50 55 50 20 70 5f 70 | 6f 70 75 70 20 46 52 4f |OPUP p_p|opup FRO|
|00000dc0| 4d 20 7b 7b 56 50 4f 53 | 2b 48 45 49 47 48 54 7d |M {{VPOS|+HEIGHT}|
|00000dd0| 7d 2c 7b 7b 48 50 4f 53 | 2d 31 7d 7d 3b 0d 0a 20 |},{{HPOS|-1}};.. |
|00000de0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000df0| 20 20 20 20 20 20 54 4f | 20 7b 7b 56 50 4f 53 2b |      TO| {{VPOS+|
|00000e00| 48 45 49 47 48 54 2b 35 | 7d 7d 2c 7b 7b 48 50 4f |HEIGHT+5|}},{{HPO|
|00000e10| 53 2b 57 49 44 54 48 7d | 7d 3b 0d 0a 20 20 20 20 |S+WIDTH}|};..    |
|00000e20| 20 20 20 20 20 20 20 20 | 20 20 20 50 52 4f 4d 50 |        |   PROMP|
|00000e30| 54 20 46 49 45 4c 44 20 | 49 54 45 4d 53 2e 49 54 |T FIELD |ITEMS.IT|
|00000e40| 45 4d 0d 0a 20 20 4f 4e | 20 53 45 4c 45 43 54 49 |EM..  ON| SELECTI|
|00000e50| 4f 4e 20 50 4f 50 55 50 | 20 70 5f 70 6f 70 75 70 |ON POPUP| p_popup|
|00000e60| 20 44 4f 20 70 6f 70 5f | 63 68 6f 69 63 65 20 57 | DO pop_|choice W|
|00000e70| 49 54 48 20 50 52 4f 4d | 50 54 28 29 2c 50 4f 50 |ITH PROM|PT(),POP|
|00000e80| 55 50 28 29 2c 3b 0d 0a | 20 20 20 20 20 20 20 20 |UP(),;..|        |
|00000e90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 27 63 75 |        |     'cu|
|00000ea0| 73 74 6f 6d 65 72 2e 69 | 74 65 6d 27 2c 2e 54 2e |stomer.i|tem',.T.|
|00000eb0| 0d 0a 20 20 41 43 54 49 | 56 41 54 45 20 50 4f 50 |..  ACTI|VATE POP|
|00000ec0| 55 50 20 70 5f 70 6f 70 | 75 70 0d 0a 20 20 52 45 |UP p_pop|up..  RE|
|00000ed0| 4c 45 41 53 45 20 50 4f | 50 55 50 20 70 5f 70 6f |LEASE PO|PUP p_po|
|00000ee0| 70 75 70 0d 0a 20 20 53 | 48 4f 57 20 47 45 54 20 |pup..  S|HOW GET |
|00000ef0| 63 75 73 74 6f 6d 65 72 | 2e 69 74 65 6d 0d 0a 20 |customer|.item.. |
|00000f00| 20 5f 43 55 52 4f 42 4a | 3d 4f 42 4a 4e 55 4d 28 | _CUROBJ|=OBJNUM(|
|00000f10| 63 75 73 74 6f 6d 65 72 | 2e 69 74 65 6d 29 0d 0a |customer|.item)..|
|00000f20| 45 4e 44 49 46 0d 0a 53 | 48 4f 57 20 47 45 54 20 |ENDIF..S|HOW GET |
|00000f30| 63 5f 70 75 73 68 2c 31 | 20 50 52 4f 4d 50 54 20 |c_push,1| PROMPT |
|00000f40| 63 75 73 74 6f 6d 65 72 | 2e 69 74 65 6d 20 45 4e |customer|.item EN|
|00000f50| 41 42 4c 45 0d 0a 52 45 | 54 55 52 4e 20 2e 54 2e |ABLE..RE|TURN .T.|
|00000f60| 0d 0a 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f70| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 07 |........|........|
|00000f80| 43 48 52 28 33 31 29 00 | 00 00 00 00 00 00 00 00 |CHR(31).|........|
|00000f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00000fa0| 0b 6d 2e 63 6f 6d 62 6f | 5f 62 74 6e 00 00 00 00 |.m.combo|_btn....|
|00000fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00000fc0| 00 08 22 40 2a 49 56 4e | 20 22 00 00 00 00 00 00 |.."@*IVN| "......|
|00000fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00000fe0| 00 00 1f 5f 43 55 52 4f | 42 4a 3d 4f 42 4a 4e 55 |..._CURO|BJ=OBJNU|
|00000ff0| 4d 28 63 75 73 74 6f 6d | 65 72 2e 69 74 65 6d 29 |M(custom|er.item)|
|00001000| 0d 0a 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001020| 01 00 00 00 54 49 46 20 | 2e 4e 4f 54 2e 4d 44 4f |....TIF |.NOT.MDO|
|00001030| 57 4e 28 29 0d 0a 20 20 | 52 45 54 55 52 4e 20 2e |WN()..  |RETURN .|
|00001040| 46 2e 0d 0a 45 4e 44 49 | 46 0d 0a 52 45 50 4c 41 |F...ENDI|F..REPLA|
|00001050| 43 45 20 63 75 73 74 6f | 6d 65 72 2e 69 74 65 6d |CE custo|mer.item|
|00001060| 20 57 49 54 48 20 27 27 | 0d 0a 3d 76 5f 63 6f 6d | WITH ''|..=v_com|
|00001070| 62 6f 62 6f 78 28 29 0d | 0a 00 00 00 00 00 00 00 |bobox().|........|
|00001080| 00 00 00 01 00 00 00 0b | 6d 2e 69 6e 76 62 75 74 |........|m.invbut|
|00001090| 74 6f 6e 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ton.....|........|
|000010a0| 00 00 00 00 01 00 00 00 | 08 22 40 2a 49 56 4e 20 |........|."@*IVN |
|000010b0| 22 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |".......|........|
|000010c0| 00 00 00 00 00 01 00 00 | 01 f7 50 52 49 56 41 54 |........|..PRIVAT|
|000010d0| 45 20 6d 2e 6d 63 6f 6c | 2c 6d 2e 6d 63 6f 6c 5f |E m.mcol|,m.mcol_|
|000010e0| 6c 61 73 74 2c 6d 2e 73 | 6c 69 64 65 72 5f 76 61 |last,m.s|lider_va|
|000010f0| 6c 0d 0a 0d 0a 49 46 20 | 2e 4e 4f 54 2e 4d 44 4f |l....IF |.NOT.MDO|
|00001100| 57 4e 28 29 2e 4f 52 2e | 2e 4e 4f 54 2e 42 45 54 |WN().OR.|.NOT.BET|
|00001110| 57 45 45 4e 28 4d 52 4f | 57 28 29 2c 7b 7b 56 50 |WEEN(MRO|W(),{{VP|
|00001120| 4f 53 7d 7d 2c 7b 7b 56 | 50 4f 53 7d 7d 2b 2e 39 |OS}},{{V|POS}}+.9|
|00001130| 39 39 29 0d 0a 20 20 52 | 45 54 55 52 4e 20 2e 46 |99)..  R|ETURN .F|
|00001140| 2e 0d 0a 45 4e 44 49 46 | 0d 0a 6d 2e 6d 63 6f 6c |...ENDIF|..m.mcol|
|00001150| 5f 6c 61 73 74 3d 2d 32 | 0d 0a 44 4f 20 57 48 49 |_last=-2|..DO WHI|
|00001160| 4c 45 20 4d 44 4f 57 4e | 28 29 0d 0a 20 20 6d 2e |LE MDOWN|()..  m.|
|00001170| 6d 63 6f 6c 3d 4d 49 4e | 28 4d 41 58 28 4d 43 4f |mcol=MIN|(MAX(MCO|
|00001180| 4c 28 29 2c 7b 7b 48 50 | 4f 53 7d 7d 29 2c 7b 7b |L(),{{HP|OS}}),{{|
|00001190| 48 50 4f 53 2b 57 49 44 | 54 48 2d 31 7d 7d 29 0d |HPOS+WID|TH-1}}).|
|000011a0| 0a 20 20 49 46 20 6d 2e | 6d 63 6f 6c 3d 6d 2e 6d |.  IF m.|mcol=m.m|
|000011b0| 63 6f 6c 5f 6c 61 73 74 | 2e 4f 52 2e 4d 43 4f 4c |col_last|.OR.MCOL|
|000011c0| 28 29 3c 30 0d 0a 20 20 | 20 20 4c 4f 4f 50 0d 0a |()<0..  |  LOOP..|
|000011d0| 20 20 45 4e 44 49 46 0d | 0a 20 20 6d 2e 6d 63 6f |  ENDIF.|.  m.mco|
|000011e0| 6c 5f 6c 61 73 74 3d 6d | 2e 6d 63 6f 6c 0d 0a 20 |l_last=m|.mcol.. |
|000011f0| 20 6d 2e 73 6c 69 64 65 | 72 5f 76 61 6c 3d 6d 2e | m.slide|r_val=m.|
|00001200| 6d 63 6f 6c 2d 7b 7b 48 | 50 4f 53 7d 7d 2b 31 0d |mcol-{{H|POS}}+1.|
|00001210| 0a 20 20 40 20 7b 7b 56 | 50 4f 53 7d 7d 2c 7b 7b |.  @ {{V|POS}},{{|
|00001220| 48 50 4f 53 7d 7d 20 54 | 4f 20 7b 7b 56 50 4f 53 |HPOS}} T|O {{VPOS|
|00001230| 2b 48 45 49 47 48 54 2d | 31 7d 7d 2c 7b 7b 48 50 |+HEIGHT-|1}},{{HP|
|00001240| 4f 53 2b 57 49 44 54 48 | 2d 31 7d 7d 0d 0a 20 20 |OS+WIDTH|-1}}..  |
|00001250| 40 20 7b 7b 56 50 4f 53 | 7d 7d 2c 6d 2e 6d 63 6f |@ {{VPOS|}},m.mco|
|00001260| 6c 20 53 41 59 20 27 db | 27 0d 0a 20 20 7b 7b 6f |l SAY '.|'..  {{o|
|00001270| 62 6a 64 61 74 61 28 27 | 53 4c 49 44 45 52 31 27 |bjdata('|SLIDER1'|
|00001280| 2c 27 6f 62 6a 73 61 79 | 28 29 27 29 7d 7d 20 43 |,'objsay|()')}} C|
|00001290| 4f 4c 4f 52 20 53 43 48 | 45 4d 45 20 28 6d 2e 73 |OLOR SCH|EME (m.s|
|000012a0| 6c 69 64 65 72 5f 76 61 | 6c 29 0d 0a 45 4e 44 44 |lider_va|l)..ENDD|
|000012b0| 4f 0d 0a 52 45 54 55 52 | 4e 20 2e 46 2e 0d 0a 0d |O..RETUR|N .F....|
|000012c0| 0a 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012d0| 00 00 00 00 00 01 00 00 | 00 09 6d 2e 63 5f 72 61 |........|..m.c_ra|
|000012e0| 64 69 6f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |dio.....|........|
|000012f0| 00 00 00 00 00 00 01 00 | 00 00 1d 2a 3a 53 49 5a |........|...*:SIZ|
|00001300| 45 20 49 49 46 28 5f 57 | 49 4e 44 4f 57 53 2c 31 |E IIF(_W|INDOWS,1|
|00001310| 2c 33 29 2c 32 30 0d 0a | 00 00 00 00 00 00 00 00 |,3),20..|........|
|00001320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001330| 00 00 00 00 00 00 00 00 | 01 00 00 00 82 22 40 2a |........|....."@*|
|00001340| 52 56 4e 20 7b 7b 43 48 | 52 28 33 34 29 7d 7d 7b |RVN {{CH|R(34)}}{|
|00001350| 7b 27 2b 61 5f 72 61 64 | 69 6f 28 31 29 2b 27 7d |{'+a_rad|io(1)+'}|
|00001360| 7d 7b 7b 43 48 52 28 33 | 34 29 7d 7d 3b 7b 7b 43 |}{{CHR(3|4)}};{{C|
|00001370| 48 52 28 33 34 29 7d 7d | 7b 7b 27 2b 61 5f 72 61 |HR(34)}}|{{'+a_ra|
|00001380| 64 69 6f 28 32 29 2b 27 | 7d 7d 7b 7b 43 48 52 28 |dio(2)+'|}}{{CHR(|
|00001390| 33 34 29 7d 7d 3b 7b 7b | 43 48 52 28 33 34 29 7d |34)}};{{|CHR(34)}|
|000013a0| 7d 7b 7b 27 2b 61 5f 72 | 61 64 69 6f 28 33 29 2b |}{{'+a_r|adio(3)+|
|000013b0| 27 7d 7d 7b 7b 43 48 52 | 28 33 34 29 7d 7d 22 00 |'}}{{CHR|(34)}}".|
|000013c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|000013e0| 00 2a 22 7b 7b 43 48 52 | 28 33 34 29 7d 7d 7b 7b |.*"{{CHR|(34)}}{{|
|000013f0| 27 2b 61 5f 72 61 64 69 | 6f 28 31 29 2b 27 7d 7d |'+a_radi|o(1)+'}}|
|00001400| 7b 7b 43 48 52 28 33 34 | 29 7d 7d 22 00 00 00 00 |{{CHR(34|)}}"....|
|00001410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00001420| 00 00 00 04 54 49 4d 45 | 00 00 00 00 00 00 00 00 |....TIME|........|
|00001430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001440| 01 00 00 00 4f 2a 3a 49 | 4e 53 54 58 54 0d 57 41 |....O*:I|NSTXT.WA|
|00001450| 49 54 20 27 54 69 6d 65 | 20 6f 66 20 47 65 6e 65 |IT 'Time| of Gene|
|00001460| 72 61 74 65 2e 2e 2e 20 | 77 61 73 20 7b 7b 54 49 |rate... |was {{TI|
|00001470| 4d 45 28 29 7d 7d 20 6f | 6e 20 7b 7b 44 41 54 45 |ME()}} o|n {{DATE|
|00001480| 28 29 7d 7d 27 20 57 49 | 4e 44 4f 57 20 4e 4f 57 |()}}' WI|NDOW NOW|
|00001490| 41 49 54 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |AIT.....|........|
|000014a0| 00 00 00 01 00 00 00 07 | 77 5f 63 75 73 74 34 00 |........|w_cust4.|
|000014b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014c0| 00 00 00 00 01 00 00 00 | 10 22 20 7b 7b 5f 47 45 |........|." {{_GE|
|000014d0| 4e 53 43 52 4e 7d 7d 20 | 22 00 00 00 00 00 00 00 |NSCRN}} |".......|
|000014e0| 00 00 00 00 00 01 00 00 | 01 0b 50 52 4f 43 45 44 |........|..PROCED|
|000014f0| 55 52 45 20 70 6f 70 5f | 63 68 6f 69 63 65 0d 0a |URE pop_|choice..|
|00001500| 50 41 52 41 4d 45 54 45 | 52 53 20 6d 2e 76 61 6c |PARAMETE|RS m.val|
|00001510| 75 65 2c 6d 2e 70 6f 70 | 75 70 2c 6d 2e 76 61 72 |ue,m.pop|up,m.var|
|00001520| 5f 6e 61 6d 65 2c 6d 2e | 64 62 66 5f 66 69 65 6c |_name,m.|dbf_fiel|
|00001530| 64 0d 0a 50 52 49 56 41 | 54 45 20 6d 2e 76 61 6c |d..PRIVA|TE m.val|
|00001540| 75 65 2c 6d 2e 70 6f 70 | 75 70 2c 6d 2e 76 61 72 |ue,m.pop|up,m.var|
|00001550| 5f 6e 61 6d 65 2c 6d 2e | 64 62 66 5f 66 69 65 6c |_name,m.|dbf_fiel|
|00001560| 64 0d 0a 0d 0a 49 46 20 | 6d 2e 64 62 66 5f 66 69 |d....IF |m.dbf_fi|
|00001570| 65 6c 64 0d 0a 20 20 52 | 45 50 4c 41 43 45 20 28 |eld..  R|EPLACE (|
|00001580| 6d 2e 76 61 72 5f 6e 61 | 6d 65 29 20 57 49 54 48 |m.var_na|me) WITH|
|00001590| 20 6d 2e 76 61 6c 75 65 | 0d 0a 45 4c 53 45 0d 0a | m.value|..ELSE..|
|000015a0| 20 20 26 76 61 72 5f 6e | 61 6d 65 3d 50 52 4f 4d |  &var_n|ame=PROM|
|000015b0| 50 54 28 29 0d 0a 45 4e | 44 49 46 0d 0a 44 45 41 |PT()..EN|DIF..DEA|
|000015c0| 43 54 49 56 41 54 45 20 | 50 4f 50 55 50 20 28 6d |CTIVATE |POPUP (m|
|000015d0| 2e 70 6f 70 75 70 29 0d | 0a 52 45 54 55 52 4e 0d |.popup).|.RETURN.|
|000015e0| 0a 0d 0a 2a 20 45 4e 44 | 20 70 6f 70 5f 63 68 6f |...* END| pop_cho|
|000015f0| 69 63 65 0d 0a 00 00 00 | 00 00 00 00 00 00 00 00 |ice.....|........|
|00001600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00001610| 00 01 98 2a 20 20 49 6e | 73 65 72 74 20 63 6f 64 |...*  In|sert cod|
|00001620| 65 20 66 72 6f 6d 20 43 | 4f 4d 4d 45 4e 54 20 66 |e from C|OMMENT f|
|00001630| 69 65 6c 64 20 6f 66 20 | 74 68 65 20 49 6e 63 6c |ield of |the Incl|
|00001640| 75 64 65 5f 53 74 61 6e | 64 61 72 64 20 6f 62 6a |ude_Stan|dard obj|
|00001650| 65 63 74 20 63 6f 6e 74 | 61 69 6e 65 64 0d 0a 2a |ect cont|ained..*|
|00001660| 20 20 69 6e 20 74 68 65 | 20 4d 41 49 4e 20 6c 69 |  in the| MAIN li|
|00001670| 62 72 61 72 79 2e 0d 0a | 7b 7b 6c 69 62 64 61 74 |brary...|{{libdat|
|00001680| 61 28 27 4d 41 49 4e 2e | 49 6e 63 6c 75 64 65 5f |a('MAIN.|Include_|
|00001690| 53 74 61 6e 64 61 72 64 | 27 29 7d 7d 0d 0a 0d 0a |Standard|')}}....|
|000016a0| 2a 20 20 56 65 72 69 66 | 79 20 74 68 61 74 20 73 |*  Verif|y that s|
|000016b0| 63 72 65 65 6e 20 77 61 | 73 20 67 65 6e 65 72 61 |creen wa|s genera|
|000016c0| 74 65 64 20 77 69 74 68 | 20 47 45 4e 53 43 52 4e |ted with| GENSCRN|
|000016d0| 58 2e 0d 0a 7b 7b 6c 69 | 62 64 61 74 61 28 27 4d |X...{{li|bdata('M|
|000016e0| 41 49 4e 2e 4d 6f 64 75 | 6c 65 5f 56 65 72 69 66 |AIN.Modu|le_Verif|
|000016f0| 79 47 65 6e 73 63 72 6e | 78 27 29 7d 7d 0d 0a 0d |yGenscrn|x')}}...|
|00001700| 0a 44 49 4d 45 4e 53 49 | 4f 4e 20 61 5f 70 6f 70 |.DIMENSI|ON a_pop|
|00001710| 75 70 28 33 29 0d 0a 61 | 5f 70 6f 70 75 70 28 31 |up(3)..a|_popup(1|
|00001720| 29 3d 27 41 70 70 6c 65 | 73 27 0d 0a 61 5f 70 6f |)='Apple|s'..a_po|
|00001730| 70 75 70 28 32 29 3d 27 | 4f 72 61 6e 67 65 73 27 |pup(2)='|Oranges'|
|00001740| 0d 0a 61 5f 70 6f 70 75 | 70 28 33 29 3d 27 50 65 |..a_popu|p(3)='Pe|
|00001750| 61 72 73 27 0d 0a 44 49 | 4d 45 4e 53 49 4f 4e 20 |ars'..DI|MENSION |
|00001760| 61 5f 72 61 64 69 6f 28 | 33 29 0d 0a 61 5f 72 61 |a_radio(|3)..a_ra|
|00001770| 64 69 6f 28 31 29 3d 27 | 54 79 70 65 20 41 27 0d |dio(1)='|Type A'.|
|00001780| 0a 61 5f 72 61 64 69 6f | 28 32 29 3d 27 54 79 70 |.a_radio|(2)='Typ|
|00001790| 65 20 42 27 0d 0a 61 5f | 72 61 64 69 6f 28 33 29 |e B'..a_|radio(3)|
|000017a0| 3d 27 54 79 70 65 20 43 | 27 0d 0a 00 00 00 00 00 |='Type C|'.......|
|000017b0| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 0c |........|........|
|000017c0| 43 55 53 54 4f 4d 45 52 | 2e 44 42 46 00 00 00 00 |CUSTOMER|.DBF....|
|000017d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|000017e0| 08 43 55 53 54 4f 4d 45 | 52 00 00 00 00 00 00 00 |.CUSTOME|R.......|
|000017f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00001800| 00 09 49 54 45 4d 53 2e | 44 42 46 00 00 00 00 00 |..ITEMS.|DBF.....|
|00001810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00001820| 00 00 05 49 54 45 4d 53 | 00 00 00 00 00 00 00 00 |...ITEMS|........|
|00001830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00001840| 00 00 00 04 49 54 45 4d | 00 00 00 00 00 00 00 00 |....ITEM|........|
|00001850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001860| 01 00 00 00 1c 22 3c 2d | 2d 44 61 74 61 20 64 72 |....."<-|-Data dr|
|00001870| 69 76 65 6e 20 50 75 73 | 68 20 42 75 74 74 6f 6e |iven Pus|h Button|
|00001880| 22 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |".......|........|
|00001890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018a0| 00 00 01 00 00 00 1f 22 | 3c 2d 2d 41 72 72 61 79 |......."|<--Array|
|000018b0| 20 64 72 69 76 65 6e 20 | 52 61 64 69 6f 20 42 75 | driven |Radio Bu|
|000018c0| 74 74 6f 6e 73 22 00 00 | 00 00 00 00 00 00 00 00 |ttons"..|........|
|000018d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018e0| 00 00 00 00 01 00 00 00 | 06 22 4e 61 6d 65 22 00 |........|."Name".|
|000018f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001900| 00 00 00 00 00 01 00 00 | 00 09 22 41 64 64 72 65 |........|.."Addre|
|00001910| 73 73 22 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ss".....|........|
|00001920| 00 00 00 00 00 00 01 00 | 00 00 07 22 50 68 6f 6e |........|..."Phon|
|00001930| 65 22 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |e"......|........|
|00001940| 00 00 00 00 00 00 00 01 | 00 00 00 08 2a 3a 4e 4f |........|....*:NO|
|00001950| 53 49 5a 45 00 00 00 00 | 00 00 00 00 00 00 00 00 |SIZE....|........|
|00001960| 00 00 00 00 00 00 00 00 | 01 00 00 00 06 22 43 69 |........|....."Ci|
|00001970| 74 79 22 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ty".....|........|
|00001980| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 08 22 4e |........|......"N|
|00001990| 75 6d 62 65 72 22 00 00 | 00 00 00 00 00 00 00 00 |umber"..|........|
|000019a0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 06 22 |........|......."|
|000019b0| 44 61 74 65 22 00 00 00 | 00 00 00 00 00 00 00 00 |Date"...|........|
|000019c0| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 0b |........|........|
|000019d0| 22 43 68 61 72 61 63 74 | 65 72 22 00 00 00 00 00 |"Charact|er".....|
|000019e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|000019f0| 03 22 b4 22 00 00 00 00 | 00 00 00 00 00 00 00 00 |."."....|........|
|00001a00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00001a10| 00 03 22 c3 22 00 00 00 | 00 00 00 00 00 00 00 00 |.."."...|........|
|00001a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00001a30| 00 00 0e 22 3c 2d 2d 43 | 6f 6d 62 6f 20 42 6f 78 |..."<--C|ombo Box|
|00001a40| 22 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |".......|........|
|00001a50| 00 00 00 07 22 43 6f 6c | 6f 72 22 00 00 00 00 00 |...."Col|or".....|
|00001a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a70| 01 00 00 00 12 2a 3a 44 | 45 46 4f 42 4a 20 53 4c |.....*:D|EFOBJ SL|
|00001a80| 49 44 45 52 31 0d 0a 00 | 00 00 00 00 00 00 00 00 |IDER1...|........|
|00001a90| 00 01 00 00 00 0b 22 3c | 2d 2d 53 6c 69 64 65 72 |......"<|--Slider|
|00001aa0| 22 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |".......|........|
|00001ab0| 00 00 01 00 00 00 08 6d | 2e 70 72 6f 6d 70 74 00 |.......m|.prompt.|
|00001ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ad0| 00 00 00 01 00 00 00 18 | 22 40 2a 48 4e 20 50 75 |........|"@*HN Pu|
|00001ae0| 73 68 42 75 74 74 6f 6e | 5f 52 65 63 6f 72 64 22 |shButton|_Record"|
|00001af0| 00 00 00 00 01 00 00 00 | 21 2a 3a 42 41 53 4f 42 |........|!*:BASOB|
|00001b00| 4a 20 4d 41 49 4e 2e 50 | 75 73 68 42 75 74 74 6f |J MAIN.P|ushButto|
|00001b10| 6e 5f 52 65 63 6f 72 64 | 0d 0a 00 00 00 00 00 00 |n_Record|........|
|00001b20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b30| 00 00 00 00 00 00 01 00 | 00 00 13 22 50 75 73 68 |........|..."Push|
|00001b40| 42 75 74 74 6f 6e 5f 52 | 65 63 6f 72 64 22 00 00 |Button_R|ecord"..|
|00001b50| 00 00 00 00 00 00 00 01 | 00 00 00 0d 63 75 73 74 |........|....cust|
|00001b60| 6f 6d 65 72 2e 6e 61 6d | 65 00 00 00 00 00 00 00 |omer.nam|e.......|
|00001b70| 00 00 00 00 00 00 00 00 | 01 00 00 00 13 2a 3a 42 |........|.....*:B|
|00001b80| 41 53 4f 42 4a 20 47 65 | 74 5f 4e 61 6d 65 0d 0a |ASOBJ Ge|t_Name..|
|00001b90| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 09 6d 2e |........|......m.|
|00001ba0| 63 5f 70 6f 70 75 70 00 | 00 00 00 00 00 00 00 00 |c_popup.|........|
|00001bb0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 7f 22 |........|......."|
|00001bc0| 40 5e 20 7b 7b 43 48 52 | 28 33 34 29 7d 7d 7b 7b |@^ {{CHR|(34)}}{{|
|00001bd0| 27 2b 61 5f 70 6f 70 75 | 70 28 31 29 2b 27 7d 7d |'+a_popu|p(1)+'}}|
|00001be0| 7b 7b 43 48 52 28 33 34 | 29 7d 7d 3b 7b 7b 43 48 |{{CHR(34|)}};{{CH|
|00001bf0| 52 28 33 34 29 7d 7d 7b | 7b 27 2b 61 5f 70 6f 70 |R(34)}}{|{'+a_pop|
|00001c00| 75 70 28 32 29 2b 27 7d | 7d 7b 7b 43 48 52 28 33 |up(2)+'}|}{{CHR(3|
|00001c10| 34 29 7d 7d 3b 7b 7b 43 | 48 52 28 33 34 29 7d 7d |4)}};{{C|HR(34)}}|
|00001c20| 7b 7b 27 2b 61 5f 70 6f | 70 75 70 28 33 29 2b 27 |{{'+a_po|pup(3)+'|
|00001c30| 7d 7d 7b 7b 43 48 52 28 | 33 34 29 7d 7d 22 00 00 |}}{{CHR(|34)}}"..|
|00001c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00001c60| 00 00 00 32 2a 3a 42 41 | 53 4f 42 4a 20 4f 6e 45 |...2*:BA|SOBJ OnE|
|00001c70| 6e 74 65 72 5f 4d 6f 75 | 73 65 44 6f 77 6e 0d 0a |nter_Mou|seDown..|
|00001c80| 2a 3a 44 45 46 41 55 4c | 54 20 61 5f 70 6f 70 75 |*:DEFAUL|T a_popu|
|00001c90| 70 28 31 29 0d 0a 00 00 | 00 00 00 00 00 00 00 00 |p(1)....|........|
|00001ca0| 00 01 00 00 00 2a 22 7b | 7b 43 48 52 28 33 34 29 |.....*"{|{CHR(34)|
|00001cb0| 7d 7d 7b 7b 27 2b 61 5f | 70 6f 70 75 70 28 31 29 |}}{{'+a_|popup(1)|
|00001cc0| 2b 27 7d 7d 7b 7b 43 48 | 52 28 33 34 29 7d 7d 22 |+'}}{{CH|R(34)}}"|
|00001cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ce0| 00 00 00 01 00 00 00 10 | 63 75 73 74 6f 6d 65 72 |........|customer|
|00001cf0| 2e 61 64 64 72 65 73 73 | 00 00 00 00 00 00 00 00 |.address|........|
|00001d00| 00 00 00 00 01 00 00 00 | 0d 63 75 73 74 6f 6d 65 |........|.custome|
|00001d10| 72 2e 63 69 74 79 00 00 | 00 00 00 00 00 00 00 00 |r.city..|........|
|00001d20| 00 00 00 00 00 01 00 00 | 00 40 2a 3a 42 41 53 4f |........|.@*:BASO|
|00001d30| 42 4a 20 4f 6e 45 78 69 | 74 5f 49 73 41 6c 70 68 |BJ OnExi|t_IsAlph|
|00001d40| 61 0d 0a 2a 3a 42 41 53 | 4f 42 4a 20 46 6f 72 6d |a..*:BAS|OBJ Form|
|00001d50| 61 74 5f 53 65 6c 65 63 | 74 4f 6e 45 6e 74 72 79 |at_Selec|tOnEntry|
|00001d60| 0d 0a 2a 3a 4e 4f 53 49 | 5a 45 00 00 00 00 00 00 |..*:NOSI|ZE......|
|00001d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d80| 00 00 00 00 00 00 00 00 | 01 00 00 00 0e 63 75 73 |........|.....cus|
|00001d90| 74 6f 6d 65 72 2e 70 68 | 6f 6e 65 00 00 00 00 00 |tomer.ph|one.....|
|00001da0| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 30 2a 3a |........|.....0*:|
|00001db0| 42 41 53 4f 42 4a 20 46 | 6f 72 6d 61 74 5f 50 68 |BASOBJ F|ormat_Ph|
|00001dc0| 6f 6e 65 0d 0a 2a 3a 42 | 41 53 4f 42 4a 20 43 6f |one..*:B|ASOBJ Co|
|00001dd0| 6e 74 72 6f 6c 5f 44 69 | 73 61 62 6c 65 64 00 00 |ntrol_Di|sabled..|
|00001de0| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 08 |........|........|
|00001df0| 6d 2e 6e 75 6d 62 65 72 | 08 1b 0b 07 c0 1a 00 00 |m.number|........|
|00001e00| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00001e10| 05 22 23 23 23 22 00 00 | 00 00 00 00 00 00 00 00 |."###"..|........|
|00001e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00001e30| 00 0c 2a 3a 44 45 46 41 | 55 4c 54 20 32 35 00 00 |..*:DEFA|ULT 25..|
|00001e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00001e50| 00 00 01 31 00 00 00 00 | 00 00 00 00 00 00 00 00 |...1....|........|
|00001e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00001e70| 00 00 00 03 39 39 39 00 | 00 00 00 00 00 00 00 00 |....999.|........|
|00001e80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e90| 01 00 00 00 0b 6d 2e 74 | 65 73 74 5f 64 61 74 65 |.....m.t|est_date|
|00001ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001eb0| 00 01 00 00 00 1a 2a 3a | 4e 4f 53 49 5a 45 0d 2a |......*:|NOSIZE.*|
|00001ec0| 3a 44 45 46 41 55 4c 54 | 20 44 41 54 45 28 29 0d |:DEFAULT| DATE().|
|00001ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ef0| 00 00 00 01 00 00 00 08 | 6d 2e 63 5f 70 75 73 68 |........|m.c_push|
|00001f00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f10| 00 00 00 00 01 00 00 00 | 32 22 40 2a 48 4e 20 7b |........|2"@*HN {|
|00001f20| 7b 43 48 52 28 33 34 29 | 7d 7d 7b 7b 27 2b 63 75 |{CHR(34)|}}{{'+cu|
|00001f30| 73 74 6f 6d 65 72 2e 69 | 74 65 6d 2b 27 7d 7d 7b |stomer.i|tem+'}}{|
|00001f40| 7b 43 48 52 28 33 34 29 | 7d 7d 22 00 00 00 00 00 |{CHR(34)|}}".....|
|00001f50| 00 00 00 00 00 00 01 00 | 00 00 39 2a 3a 42 41 53 |........|..9*:BAS|
|00001f60| 4f 42 4a 20 4f 6e 45 6e | 74 65 72 5f 4d 6f 75 73 |OBJ OnEn|ter_Mous|
|00001f70| 65 44 6f 77 6e 0d 0a 2a | 3a 53 49 5a 45 20 31 2c |eDown..*|:SIZE 1,|
|00001f80| 4c 45 4e 28 63 75 73 74 | 6f 6d 65 72 2e 69 74 65 |LEN(cust|omer.ite|
|00001f90| 6d 29 2b 32 00 00 00 00 | 01 00 00 00 2d 22 7b 7b |m)+2....|....-"{{|
|00001fa0| 43 48 52 28 33 34 29 7d | 7d 7b 7b 27 2b 63 75 73 |CHR(34)}|}{{'+cus|
|00001fb0| 74 6f 6d 65 72 2e 69 74 | 65 6d 2b 27 7d 7d 7b 7b |tomer.it|em+'}}{{|
|00001fc0| 43 48 52 28 33 34 29 7d | 7d 22 00 00 00 00 00 00 |CHR(34)}|}"......|
|00001fd0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 0d 63 |........|.......c|
|00001fe0| 75 73 74 6f 6d 65 72 2e | 69 74 65 6d 00 00 00 00 |ustomer.|item....|
|00001ff0| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 01 f2 |........|........|
|00002000| 23 4e 41 4d 45 20 76 5f | 63 6f 6d 62 6f 62 6f 78 |#NAME v_|combobox|
|00002010| 0d 0a 0d 0a 49 46 20 55 | 50 50 45 52 28 56 41 52 |....IF U|PPER(VAR|
|00002020| 52 45 41 44 28 29 29 3d | 3d 27 43 4f 4d 42 4f 5f |READ())=|='COMBO_|
|00002030| 42 54 4e 27 0d 0a 20 20 | 44 45 46 49 4e 45 20 50 |BTN'..  |DEFINE P|
|00002040| 4f 50 55 50 20 70 5f 70 | 6f 70 75 70 20 46 52 4f |OPUP p_p|opup FRO|
|00002050| 4d 20 7b 7b 56 50 4f 53 | 2b 48 45 49 47 48 54 7d |M {{VPOS|+HEIGHT}|
|00002060| 7d 2c 7b 7b 48 50 4f 53 | 2d 31 7d 7d 3b 0d 0a 20 |},{{HPOS|-1}};.. |
|00002070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002080| 20 20 20 20 20 20 54 4f | 20 7b 7b 56 50 4f 53 2b |      TO| {{VPOS+|
|00002090| 48 45 49 47 48 54 2b 35 | 7d 7d 2c 7b 7b 48 50 4f |HEIGHT+5|}},{{HPO|
|000020a0| 53 2b 57 49 44 54 48 7d | 7d 3b 0d 0a 20 20 20 20 |S+WIDTH}|};..    |
|000020b0| 20 20 20 20 20 20 20 20 | 20 20 20 50 52 4f 4d 50 |        |   PROMP|
|000020c0| 54 20 46 49 45 4c 44 20 | 49 54 45 4d 53 2e 49 54 |T FIELD |ITEMS.IT|
|000020d0| 45 4d 0d 0a 20 20 4f 4e | 20 53 45 4c 45 43 54 49 |EM..  ON| SELECTI|
|000020e0| 4f 4e 20 50 4f 50 55 50 | 20 70 5f 70 6f 70 75 70 |ON POPUP| p_popup|
|000020f0| 20 44 4f 20 70 6f 70 5f | 63 68 6f 69 63 65 20 57 | DO pop_|choice W|
|00002100| 49 54 48 20 50 52 4f 4d | 50 54 28 29 2c 50 4f 50 |ITH PROM|PT(),POP|
|00002110| 55 50 28 29 2c 3b 0d 0a | 20 20 20 20 20 20 20 20 |UP(),;..|        |
|00002120| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 27 63 75 |        |     'cu|
|00002130| 73 74 6f 6d 65 72 2e 69 | 74 65 6d 27 2c 2e 54 2e |stomer.i|tem',.T.|
|00002140| 0d 0a 20 20 41 43 54 49 | 56 41 54 45 20 50 4f 50 |..  ACTI|VATE POP|
|00002150| 55 50 20 70 5f 70 6f 70 | 75 70 0d 0a 20 20 52 45 |UP p_pop|up..  RE|
|00002160| 4c 45 41 53 45 20 50 4f | 50 55 50 20 70 5f 70 6f |LEASE PO|PUP p_po|
|00002170| 70 75 70 0d 0a 20 20 53 | 48 4f 57 20 47 45 54 20 |pup..  S|HOW GET |
|00002180| 63 75 73 74 6f 6d 65 72 | 2e 69 74 65 6d 0d 0a 20 |customer|.item.. |
|00002190| 20 5f 43 55 52 4f 42 4a | 3d 4f 42 4a 4e 55 4d 28 | _CUROBJ|=OBJNUM(|
|000021a0| 63 75 73 74 6f 6d 65 72 | 2e 69 74 65 6d 29 0d 0a |customer|.item)..|
|000021b0| 45 4e 44 49 46 0d 0a 53 | 48 4f 57 20 47 45 54 20 |ENDIF..S|HOW GET |
|000021c0| 63 5f 70 75 73 68 2c 31 | 20 50 52 4f 4d 50 54 20 |c_push,1| PROMPT |
|000021d0| 63 75 73 74 6f 6d 65 72 | 2e 69 74 65 6d 20 45 4e |customer|.item EN|
|000021e0| 41 42 4c 45 0d 0a 52 45 | 54 55 52 4e 20 2e 54 2e |ABLE..RE|TURN .T.|
|000021f0| 0d 0a 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002200| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 07 |........|........|
|00002210| 43 48 52 28 33 31 29 00 | 00 00 00 00 00 00 00 00 |CHR(31).|........|
|00002220| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00002230| 0b 6d 2e 63 6f 6d 62 6f | 5f 62 74 6e 00 00 00 00 |.m.combo|_btn....|
|00002240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00002250| 00 08 22 40 2a 49 56 4e | 20 22 00 00 00 00 00 00 |.."@*IVN| "......|
|00002260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00002270| 00 00 54 49 46 20 2e 4e | 4f 54 2e 4d 44 4f 57 4e |..TIF .N|OT.MDOWN|
|00002280| 28 29 0d 0a 20 20 52 45 | 54 55 52 4e 20 2e 46 2e |()..  RE|TURN .F.|
|00002290| 0d 0a 45 4e 44 49 46 0d | 0a 52 45 50 4c 41 43 45 |..ENDIF.|.REPLACE|
|000022a0| 20 63 75 73 74 6f 6d 65 | 72 2e 69 74 65 6d 20 57 | custome|r.item W|
|000022b0| 49 54 48 20 27 27 0d 0a | 3d 76 5f 63 6f 6d 62 6f |ITH ''..|=v_combo|
|000022c0| 62 6f 78 28 29 0d 0a 00 | 00 00 00 00 00 00 00 00 |box()...|........|
|000022d0| 00 01 00 00 00 1f 5f 43 | 55 52 4f 42 4a 3d 4f 42 |......_C|UROBJ=OB|
|000022e0| 4a 4e 55 4d 28 63 75 73 | 74 6f 6d 65 72 2e 69 74 |JNUM(cus|tomer.it|
|000022f0| 65 6d 29 0d 0a 00 00 00 | 00 00 00 00 00 00 00 00 |em).....|........|
|00002300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002310| 00 00 00 01 00 00 00 0b | 6d 2e 69 6e 76 62 75 74 |........|m.invbut|
|00002320| 74 6f 6e 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ton.....|........|
|00002330| 00 00 00 00 01 00 00 00 | 08 22 40 2a 49 56 4e 20 |........|."@*IVN |
|00002340| 22 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |".......|........|
|00002350| 00 00 00 00 00 01 00 00 | 01 f7 50 52 49 56 41 54 |........|..PRIVAT|
|00002360| 45 20 6d 2e 6d 63 6f 6c | 2c 6d 2e 6d 63 6f 6c 5f |E m.mcol|,m.mcol_|
|00002370| 6c 61 73 74 2c 6d 2e 73 | 6c 69 64 65 72 5f 76 61 |last,m.s|lider_va|
|00002380| 6c 0d 0a 0d 0a 49 46 20 | 2e 4e 4f 54 2e 4d 44 4f |l....IF |.NOT.MDO|
|00002390| 57 4e 28 29 2e 4f 52 2e | 2e 4e 4f 54 2e 42 45 54 |WN().OR.|.NOT.BET|
|000023a0| 57 45 45 4e 28 4d 52 4f | 57 28 29 2c 7b 7b 56 50 |WEEN(MRO|W(),{{VP|
|000023b0| 4f 53 7d 7d 2c 7b 7b 56 | 50 4f 53 7d 7d 2b 2e 39 |OS}},{{V|POS}}+.9|
|000023c0| 39 39 29 0d 0a 20 20 52 | 45 54 55 52 4e 20 2e 46 |99)..  R|ETURN .F|
|000023d0| 2e 0d 0a 45 4e 44 49 46 | 0d 0a 6d 2e 6d 63 6f 6c |...ENDIF|..m.mcol|
|000023e0| 5f 6c 61 73 74 3d 2d 32 | 0d 0a 44 4f 20 57 48 49 |_last=-2|..DO WHI|
|000023f0| 4c 45 20 4d 44 4f 57 4e | 28 29 0d 0a 20 20 6d 2e |LE MDOWN|()..  m.|
|00002400| 6d 63 6f 6c 3d 4d 49 4e | 28 4d 41 58 28 4d 43 4f |mcol=MIN|(MAX(MCO|
|00002410| 4c 28 29 2c 7b 7b 48 50 | 4f 53 7d 7d 29 2c 7b 7b |L(),{{HP|OS}}),{{|
|00002420| 48 50 4f 53 2b 57 49 44 | 54 48 2d 31 7d 7d 29 0d |HPOS+WID|TH-1}}).|
|00002430| 0a 20 20 49 46 20 6d 2e | 6d 63 6f 6c 3d 6d 2e 6d |.  IF m.|mcol=m.m|
|00002440| 63 6f 6c 5f 6c 61 73 74 | 2e 4f 52 2e 4d 43 4f 4c |col_last|.OR.MCOL|
|00002450| 28 29 3c 30 0d 0a 20 20 | 20 20 4c 4f 4f 50 0d 0a |()<0..  |  LOOP..|
|00002460| 20 20 45 4e 44 49 46 0d | 0a 20 20 6d 2e 6d 63 6f |  ENDIF.|.  m.mco|
|00002470| 6c 5f 6c 61 73 74 3d 6d | 2e 6d 63 6f 6c 0d 0a 20 |l_last=m|.mcol.. |
|00002480| 20 6d 2e 73 6c 69 64 65 | 72 5f 76 61 6c 3d 6d 2e | m.slide|r_val=m.|
|00002490| 6d 63 6f 6c 2d 7b 7b 48 | 50 4f 53 7d 7d 2b 31 0d |mcol-{{H|POS}}+1.|
|000024a0| 0a 20 20 40 20 7b 7b 56 | 50 4f 53 7d 7d 2c 7b 7b |.  @ {{V|POS}},{{|
|000024b0| 48 50 4f 53 7d 7d 20 54 | 4f 20 7b 7b 56 50 4f 53 |HPOS}} T|O {{VPOS|
|000024c0| 2b 48 45 49 47 48 54 2d | 31 7d 7d 2c 7b 7b 48 50 |+HEIGHT-|1}},{{HP|
|000024d0| 4f 53 2b 57 49 44 54 48 | 2d 31 7d 7d 0d 0a 20 20 |OS+WIDTH|-1}}..  |
|000024e0| 40 20 7b 7b 56 50 4f 53 | 7d 7d 2c 6d 2e 6d 63 6f |@ {{VPOS|}},m.mco|
|000024f0| 6c 20 53 41 59 20 27 db | 27 0d 0a 20 20 7b 7b 6f |l SAY '.|'..  {{o|
|00002500| 62 6a 64 61 74 61 28 27 | 53 4c 49 44 45 52 31 27 |bjdata('|SLIDER1'|
|00002510| 2c 27 6f 62 6a 73 61 79 | 28 29 27 29 7d 7d 20 43 |,'objsay|()')}} C|
|00002520| 4f 4c 4f 52 20 53 43 48 | 45 4d 45 20 28 6d 2e 73 |OLOR SCH|EME (m.s|
|00002530| 6c 69 64 65 72 5f 76 61 | 6c 29 0d 0a 45 4e 44 44 |lider_va|l)..ENDD|
|00002540| 4f 0d 0a 52 45 54 55 52 | 4e 20 2e 46 2e 0d 0a 0d |O..RETUR|N .F....|
|00002550| 0a 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002560| 00 00 00 00 00 01 00 00 | 00 09 6d 2e 63 5f 72 61 |........|..m.c_ra|
|00002570| 64 69 6f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |dio.....|........|
|00002580| 00 00 00 00 00 00 01 00 | 00 00 82 22 40 2a 52 56 |........|..."@*RV|
|00002590| 4e 20 7b 7b 43 48 52 28 | 33 34 29 7d 7d 7b 7b 27 |N {{CHR(|34)}}{{'|
|000025a0| 2b 61 5f 72 61 64 69 6f | 28 31 29 2b 27 7d 7d 7b |+a_radio|(1)+'}}{|
|000025b0| 7b 43 48 52 28 33 34 29 | 7d 7d 3b 7b 7b 43 48 52 |{CHR(34)|}};{{CHR|
|000025c0| 28 33 34 29 7d 7d 7b 7b | 27 2b 61 5f 72 61 64 69 |(34)}}{{|'+a_radi|
|000025d0| 6f 28 32 29 2b 27 7d 7d | 7b 7b 43 48 52 28 33 34 |o(2)+'}}|{{CHR(34|
|000025e0| 29 7d 7d 3b 7b 7b 43 48 | 52 28 33 34 29 7d 7d 7b |)}};{{CH|R(34)}}{|
|000025f0| 7b 27 2b 61 5f 72 61 64 | 69 6f 28 33 29 2b 27 7d |{'+a_rad|io(3)+'}|
|00002600| 7d 7b 7b 43 48 52 28 33 | 34 29 7d 7d 22 00 00 00 |}{{CHR(3|4)}}"...|
|00002610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002620| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 1d |........|........|
|00002630| 2a 3a 53 49 5a 45 20 49 | 49 46 28 5f 57 49 4e 44 |*:SIZE I|IF(_WIND|
|00002640| 4f 57 53 2c 31 2c 33 29 | 2c 32 30 0d 0a 00 00 00 |OWS,1,3)|,20.....|
|00002650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00002670| 00 2a 22 7b 7b 43 48 52 | 28 33 34 29 7d 7d 7b 7b |.*"{{CHR|(34)}}{{|
|00002680| 27 2b 61 5f 72 61 64 69 | 6f 28 31 29 2b 27 7d 7d |'+a_radi|o(1)+'}}|
|00002690| 7b 7b 43 48 52 28 33 34 | 29 7d 7d 22 00 00 00 00 |{{CHR(34|)}}"....|
|000026a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|000026b0| 00 00 00 04 54 49 4d 45 | 00 00 00 00 00 00 00 00 |....TIME|........|
|000026c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026d0| 01 00 00 00 4f 2a 3a 49 | 4e 53 54 58 54 0d 57 41 |....O*:I|NSTXT.WA|
|000026e0| 49 54 20 27 54 69 6d 65 | 20 6f 66 20 47 65 6e 65 |IT 'Time| of Gene|
|000026f0| 72 61 74 65 2e 2e 2e 20 | 77 61 73 20 7b 7b 54 49 |rate... |was {{TI|
|00002700| 4d 45 28 29 7d 7d 20 6f | 6e 20 7b 7b 44 41 54 45 |ME()}} o|n {{DATE|
|00002710| 28 29 7d 7d 27 20 57 49 | 4e 44 4f 57 20 4e 4f 57 |()}}' WI|NDOW NOW|
|00002720| 41 49 54 0d             |                         |AIT.    |        |
+--------+-------------------------+-------------------------+--------+--------+